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1« ABSTRACT 



VTft IS Afi lOMOD THAT EXERCISES UP TO FOUR VT20'S (8 DLll LIMES). IT IS 
INTENDED TO BE A DATA HANDLING ROUTINE USED IN CONJUNCTION WITH TEST 21 OF 
MAINDEC-ll-DBYTA (PREVIOUSLY LOADED AND RUNNING IK THE YT20'S PDPll-05). 
DATA IS ENTERED AT EACH SELECTED TUBE AND SET INTO THE CONTINUOUS TRANSMIT 



MODE. THIS DATA IS THEN RECEIVED AND RETRANSMITTED BY THE VT20 HOST 

_ __ _ _____ __. ^_ 

8 DLll'S IIITH CONTIGUOUS ADDRESSES AND VECTORS) CAN BE ACTIVATED AND 



COMPUTER (THIS DEC/Xll MODULE). ALL LINES SELECTED FOR TEST (UP TO 



RUN CONCURRENTLY. ALL TRANSMIT AND RECEIVE ERRORS ARE REPORTED 
ON THE CONSOLE TTY. NO DATA ERRORS ARE REPORTED BY THIS MODULE. 



2. REQUIREMENTS 



HARDWARES AT LEAST ONE VT20 

STORAGE:: VTA REQUIRES: 

1. DECIMAL WORDS: , 

2. OCTAL WORDS: 043 

3. OCTAL BYTES: 10760 



PASS DEFINITION 



OWE PASS OF THE VTA MODULE CONSISTS OF CONTINUOUSLY RECEIVING 
AND TRANSMITTING THE DATA ENTERED ON ALL SELECTED LINES FOR 
THE PERIOD DEFINED BELOW. 



4. EXECUTION TIME 



EXECUTION TIME VARIES WITH THE NUMBER OF JOBS (MODULES) 
ACTIVE^ THE BAUD RATE AND THE NUMBER OF TUBES BEING 
EXERCISED. HOWEVER. THIS MODULE RUNNING ALONE WILL 
TAKE ABOUT 20 SECONDS FOR ONE TUBE AND UP TO 60 SECONDS 
FOR 8 TUBES. BAUD RATES LESS THAN 2400 REQUIRE PROGRAM 
MODIFICATION WHICH INCREASES EXECUTION TIME. SEE SECTION 6.B. 

CONFIGURATION PARAMETERS 

DEFAULT PARAMETERS: 

DVA:175610/ VCT:340^ BR1:5, BR2:0, DVC:1 

REQUIRED PARAMETERS: 

VCT: VECTOR ADDRESS OF FIRST DLll IF NOT 34C 
DVC:N0 of DLll'S (TUBES) IF GREATER THAN 1 



i 
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6. 



DEVICE SEfOP 



SEQ 0C03 



THE OSER MUST LOAD A»0 START TEST 21 OF HAIBDEC-ll-DBVTA IH THE VT20 
PDPll705 IM ORDER FOR THIS MODULE TO EXERCISE. CONSULT THE ABOVE 
DOCUMEHT AND COMPLY lilTH THE OPERATING INSTRUCTIONS FOR TEST 21 
(SECTION 26U THIS DEC/Xll MODULE EXPECTS THE OSER TO ENTER DATA 
ON EACH SELECTED TUBE AND SET EACH TUBE IN THE CONTINUOUS 
TRANSMIT MODE* THIS STEP IS TAKEN IFTER THE DEC/Xll EXERCISER 
HAS BEEN STARTED BY THE 'RUN' COMMAND. TYPICAL USER ACTION 
ON EACH SELECTED TUBE WILL BE AS FOLLOUSs 



KEY 



FUNCTION 



CTRL E CLEAR SCREEN 

CTRL H GENERATE HORST CASE CHARACTER PATTERN ON TOP OF SCREEN 

CTRL T CONTINUOUS TRANSMIT TO DEC/Xll MODULE (DEC/Xll MODULE 

HILL RECEIVE DATA AND TRANSMIT IT BACK TO BOTTOM OF SCREEN) 



note: if the CHARACTER PATTERN FAILS TO RETURN ON THE 

BOTTOM OF THE SCREEN AFTER ONE 'CTRL T'^ THEN RETRY AFTER 
'END PASS' IS REPORTED FOR THIS DEC/Xll NODULE (DLll RECIEVERS 
ARE TURNED OFF SECONDS BEFORE 'END PASS' MSG). IF DATA IS STILL 
NOT RETURNED FROM HOST COMPUTER (DEC/Xll SYSTEM) THEN VERIFY 
THE VT20 HOST COMPUTER BY RUNNING MAlNDEC-ll-DZVTE. 

P. IF BAUDS RATES LOWER THAN 2400 ARE USED THEN ONE OF THE 

VALUES BELOW MUST BE PLUGGED IN LOCATION 'COUNTl' (VTA 1660) 
TO AVOID POSSIBLE 'DLll HUNG' ERRORS. NOTE THAT EXECUTION 
TIME INCREASES BY ABOUT 30 SECONDS FOR EVERY 1 COUNT. 



BAUD RATE 



VALUE 



7. 
7«l 



1200 
600 
300 
150 

110 



USE THE "MOD" COMMAND TO ALTER LOCATION 'COUNTl' (VTA 1660) 
MODULE OPERATION 



TEST SEQUENCE 
A. START: 



SETCSPS 



USING THE DEVICE SELECTION PARAMETER "DVIDl" THIS 

SECTION OF CODE SETS UP THE VECTCRS OF ALL SELECTED 
LINES TO POINT TO THE APPROPRIATE JSR IN THE 
JSR LINKING TABLE. 

THIS PI^CE OF CnCE INSERTS THE PROPER CSP 
ADDRESS OF EACH ACTIVE LINE INTO THE THIRD 
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SEfUPs 

D. STRTUP: 

E. TIMRS 

F« XSTRT2 
G. f MOOT 2 

HMGTSTS 

I. RESTRT: 

J. RIHTS 

!(• TI8T2 
L. TSERVS 
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SEQ 0004 

HORO OF EACH JSR TABLE ENTRY. 

THIS CODE INITIALIZES ALL TABLES^BUFFERS^FLAGS^ 
AND COUNTERS. 

THIS CODE TURNS ON THE INTERRUPT ENABLES FOR 
EACH SELECTED RECEIVER. 

THIS CODE IS AN 'END PASS" TIMER LOOP VIA 'BREAKS' TO 
THE MONITOR. THE PROGRAM LEAVES THIS LOOP TO RESTART 
LINES ON TRANSMIT AFTER COMPLETION OF RECEIVING A BLOCK 
OF DATA^r AND TO PREPARE FOR THE "Em PASS' MESSAGE AND 
TO REPORT RECEIVER ERRORS IF ANY. 

RESTARTS EACH LINE TRANSMITTING THAT HAS RECEIVED A BLOCK 
OF DATA (CHARACTER '014' TERMINATES A BLOCK CF DATA). 

THIS CODE IS ENTERED ilHEN THE 'END PASS' 

MESSAGE IF CALLED FOR. IT PROVIDES TIME VIA 

'BREAKS' FOR ALL LINES TO BECOME IDLE AT COMPLETION 

OF RECEIVE. REPORTS RECEIVER ERRORS IF ANY AND CHECKS THAT 

AT LEAST ONE GOOD LINE IS LEFT TO BE RESTARTED. 

AFTER WAITING ENOUGH TIME FOR ALL LINES 

TO BECOME IDLE£ ALL LINES ARE EXPECTED 

TO HAVE COMPLETED RECEIVING. IF NOT, THE 

LINE IS REPORTED HONG AND DROPPED (SEE SECTION 6 FOR 

BAUD RATES LESS THAN 2400). 'END PASS' 

MESSAGE IS MOW TYPED. 

THIS CODE INITIALIZES QUEUES AND TIMERS 
AND STARTS UP ANY LINE TO RECEIVE PREVIOUSLY 
REPORTED AS HUNG, THEN GOES AND STARTS UP 
ALL OTHER LINES TRANSMITTING. 

THE RECEIVER SERVICE ROUTINE STORES DATA, 

AND CHECKS FOR RECEIVER ERRORS WHICH ARE 

STORED FOR BACKGROUND REPORTING. IT ALSO 

LOOKS FOR THE TERMINATING CHARACTER OF 

'014'. WHEN RECEIVED, IT SETS UP FOR TRANSMIT. 

THE TRANSMITTER SERVICE ROUTINE SIMPLY 

QUEUES UP THE REQUEST FOR SERVICE IN A 

FIFO QUEUE/ UPDATES THE QUEUE POINTER^ AND 

RETURNS CONTROL BACK TO THE MONITOR WITH 

A 'PIRQ'. THE ELEMENT THAT GETS STORED 

IN THE QUEUE IS A POINTER TO THE INTERRUPTING 

CSR ADDRESS. THE ACTUAL SERVICING IS DONE 

LATER WHERE THE SERVICE CODE IS EXECUTED 

AT LEVEL 0. 

THIS CODE RETRIEVES A POINTER FROM THE 
FIFO QUEUE AND BUILDS THE CSR ADDRESS. 
STATUS IS CHECKED AND ERRORS REPORTED. 
IF THE NEXT CHARACTER IS THE TERMINATING 
CODE (014) THE LINE WILL THEN BE INITIALIZED 



# 
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7«2 



¥. RERCK: 
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TO RECEIVE. IN AMY EVEMT, THE NEXT CHARACTER 
WILL BE OUTPUTTED AND AN EXIT BACK TO THE 
MONITOR PREFORMED. 

THIS CODE REPORTS ANY RECEIVER ERRCRS WHICH 
HAD BEEN DUMPED INTO THE ERROR QUEUE 'EQ'. 



SEQ 0005 



lU ACT 



lOI 



DESCRIPTION OF TABLES^ QUEUES^ AND BUFFERS 

DLSTUSS 8 WORD TABLE WHICH SPECIFIES WHAT EACH 

LINE IS doing: not SELECTED 
TRANSMITTING (Um RECEIVING ^ 
SELECTED AND WAITING FOR USES 
ON VT20 KEYBOARD i3), WAITING 
FOR TRANSMIT AFTER RECEIVE (-1). ALL 
LINES SHOULD REACH THIS STATE BEFORE 
•END PASS", 

P. RCVSWS 8 WORD TABLE INDICATING THAT A LINE HAS 

FOUND THE SYNC OR START CODE OF *377' 
WHICH BEGINS A BLOCK OF DATA: = NO 
SYNC, 1 s SYNC HAS BEEN I^ADE. 

C. ERTABS 8 WORD TABLE WHICH INDICATES THE NUMBER 

OF ERRORS THAT HAVE OCCURRED DURING EACH 
TRANSFER. 

D« TQ: 8 WORD FIFO QUEUE FOR TRANSMITTER SERVICE. 

LOADED WITH A POINTER TO THE CSR ADDRESS 
AND UNLOADED DURING DEFERRED XMTR SERVICE. 

E. EQ: 48 WORD FIFO QUEUE FOR RECEIVER ERROR 

REPORTING. LOADED WITH THE BID LINE'S 
CSR ADDRESS AND STATUS AND DATA - 2 WORDS 
PER ERROR. 

F. XRBO-7: 8-390 BYTE RECEIVE/TRANSMIT DATA BUFFERS 

G. JSRTAB: 64 WORD TABLE THAT CONTAINS 16 JSR IN- 

STRUCTINS WITH TWO TRAILING ARGUMENTS. 

EACH RECEIVER AND EACH XMITR HAS AN ASSIGNED 

JSR IN THE TABLE OF THE FOLLOWING FORMATS 



JSR 



N 



R5,RINT(TINT) 



WHERE THE GETS OVERLAYED WITH THE ADDRESS 
OF THE CSR FOR LINE N AND N IS THE LINE 
NO. IN OCTAL TIMES TWO (00-16) 



OPERATOR OPTIONS 



A- THE USER CAN MODIFY (VTA 14) "DVIDl" TC SELECT OP 
DESELECT INDIVIDUAL DLll'S. 
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SEQ 0006 



B. THE USER CAM USE THE "MOD" COMMAND TO DUMP THE TABLES 
OR BUFFERS DESCRIBED IN 7.2 TO OBTAIN MORE DETAILED 
ERROR INFORMATION. 

9. ERROR PRINTOUTS 

9.1 ERROR FORMAT - RECEIVE 

CSRA CSR ADDRESS 

CSRC - DBR NORD AS FOLLONS: 

BIT 15 = DLll ERROR 
**BIT 14 = OVERRUN 
BIT 13 = FRAMING 
BIT 12 = PARITY 
BIT 7-0= DATA RECEIVED 

OCTAL WORD FOLLONING ERROR DEFINED AS FOLLONSl 

BIT 3 = ILLEGAL INTERRUPT - INT EN OR DONE NOT SET 

BIT 2 = ILLEGAL SYNC CHARACTER - COULD NOT SYNC OR RECEIVE 

(IST NON-ZERO CHAR WAS NOT THE |377 CODE) 
BIT 1 = DLll DROPPED FROM MODULE - 3 ERRORS OCCURRED ON 

ANY DATA BLOCK 
BIT = DLll IS HUNG - DL FAILED TO RECEIVE A BLOCK OF 

DATA IN WORST CASE TIME. 

**N0TE: OVERRUN ERRORS WILL START OCCURING ON LARGE SYSTEMS 

WHERE BUS ACTIVITY IS HIGH AS THE NUMBER CF VT20 TUBES 
ACTIVATED IS INCREASED. I.E. IF 8 TUBES AT 9600 BAOD 
ARE SELECTED^ THE WORSTCASE RECEIVER INTERRUPT SERVICE 
TIME IS APPROXIMATELY 140 MICRO-SECONDS. THIS MEANS THAT 
IF ALL OTHER I/O BUS ACTIVITY PLUS SOFTWARE SLOP INHIBITS 
A RECEIVER INTERRUPT FROM BEING SERVICED IN 140 MICRO-SECONDS 
THEN RECEIVER OVERRUN ERRORS START QCURRING AT THE DLll LINE 
ELECTRICALLY MOST DISTANT FROM THE PROCESSOR. 
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9.2 ERROR FORMAT - TRAMSMIT 

CSRA =: CSR ADDRESS 

CSRC = CSR COMTEMTS AS FOLLOWSS 

BIT 7 = XMITR READY 

BIT 6 = XMITR IMTERRUPT ENABLED 

OCTAL MORD fOLLOHIliG ERROR DEFINED AS FOLLOMSS 

BIT 1 = XMITR IS HOMG « DL FAILED TO INTERRUPT 

BIT - DLll DROPPED FROM MODULE » OCCURES ON ABOVE ERROR 



SEQ 0007 
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OOQOOO' 

mm' '^mt 

000006- 175610 
10' 000340 

6m\r- m 

000014' QOOOOl 



041101 




040 
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SEQ 0008 




.TITLE VTAB 01 
OpXCpR |ERSIOi 



jC/|ll SYSTEM. EXE 



_T|I 

23-KAY- 



•ASCII /VTAB / 
-BYTE OPEN 
175610+0 

340+6 

.BYTE PRTY5+0 
.BYTE PRTY+0 

OPEN 

OPEN 
OPSH 

140000 
START 

ODSP 



;1ST DEVICE VECTOR. 

;isT BR LEVEL. 

>2HD BR LEVEL. 

;DEVICE INDICATOR 1. 

;SNITCH REGISTER 1 

;SVITCH REGISTER 2 

iSfclTCH RBGISTER 3 

sSHlfcU REGISTER 4 



1^1 



. fiDOLE sSaSI ADDR. 

I DF ITERATIONS PER PASS=2 
LOC TO COUNT ITERATIONS 
« g^^g TOTAL SOF" - 



L SOFT ERRORS 



RANNUM: 

RES2: 
SVRO: 
SVRi: 
SVR2: 

svrI: 

SVR4: 
SVR5: 
SVR6: 
csra: 

SB ADR: 

acsr: 

HASADR: 
ASTAT: 

ERRTYP: 

asb: 
AH as: 

RSTRTI 
hdto: 
hdfr: 
INTR: 

ididh: 



open 

OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 
OPEN 
HESTRT 
OPEN 

8Pii! 

64 

-REPT 
.NLIST 



SPSIZ 



to SAVE 18J»Sg|!8is^grP 

^ ^ HARD ERRO : ^I" ~ 

OF SYS ERRORS ACCDMULAtED 



S PER PASS 
S PER PASS 



«UHEN RAND MACRO IS CALLED 
ON 



USE 
USE 
USE 



LOC 
LOC 
LOC 
LOC 



AVE Rl. 
AVE R2. 
AVE R3- 



flOLDS RANDOM 
RESERVED FOR - _ 
RESERVED FOR MO 
RESERVED FOR MO 
LQC TO SAVE RO 

" i8 nv "■ 

TO SAVE 
TO SAVE R4. 
TO SAVE R5. 
TO SAVE R6. 
ADDR OF CURRENT CSR. 
ADDR OF GOOD DATA, OR 
CONTENTS OF CSR. 
ADDR OF BAD DATA. OR 
STATUS REG CONTENTS. 
TYPE OF ERROR 
EXPECTED DATA. 
ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
VORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATICN 

8 OF INTERROPTS PER ITERATION 
ODULE IDENTIFICATION NUMBER=64 
MODULE STACK STARTS HERE. 



VTAB DEC/Xll 
XVTABO.Pll 



SYSTEM EXERCISER MODULE 
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000224' 



000224 
000232 
000240 
000244 
00025' 
00025 . 
000256 
000260 
000266 




000346* 
000352' 
000356' 

mm- 

0003 

0402' 
- 0406' 
00041" 



m 



000606 
000606 

177510 

000010 

177474 

mm- 



mm- 



000004 
000010 
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.WORD 
.LIST 

.E8DR 

«*****«***«***4k *************** *«** 

;THIS ROUTINE SETS DP THE VECTORS FOR ALL SELECTED LINES TO POINT 
;T0 THE APPROPRIATE JSR IN THE JSR LINK TABLE. 



SEQ 0009 



000606 177666 
000606 177654 
177544 

iiim- 



START: 



1$: 



177626 
177624 



2$: 



3$: 



NOV 

MOV 

MOV 

MOV 

MOV 

ASR 

BCC 

ADO 

ADD 

NOV 

MQVB 

INC 

ADD 

MOV 

MOVB 

INC 

ADD 

CMP 

BNE 

BR 

ADD 

ADD 

BR 



1390., _„ 
390.;hO*< 
ECTOR,R0 



IHTR 

to 




;390 INTERRUPTS/ITERATION 
;390 WORDS TO MEM/ITERATION 
;SET RO TO POINT TO THE 1ST VECTOR 
;LQAD Rl WITH DEVICE SELECTION PARMETER 
JSETUP R2 TO POINT 10 JSR^TABLE 
;SBIFT SELECT BIT INTO «C" 



;BR 



IF HOT SELECTED 
;390 MORE 



;390 MORE IMTS. 

RCVR INTR POINTl 

;SlT UP RCVR PRIORTIY LI 



;SET UP 



BR1,(R0)> 

IsifSis^R 
sItcsr 



JMOVE POINTER 
;P0INT R2 TO XMTR 
;S|T U£ XMTR INT 




ENTRY 

—in 



-H POINT. 
RIORITY Li 



VEL 

IN JSRTAB 

R 

VEL 



RCVR ENTRY FOR NEXT LINE 

TEB AT THE END OF THE TABLE? 



;ADVANCE VE^., 

;ADVANCE JSi f ABLE POINTER 
;G0 CHECK FOR END OF TABLE 



;THIS ROUTINE SETS UP THE JSR TABLE SUCH THAT THE APPROPRIATE 
;CSR ADDRESS IS INCLUDED AS THE 3R0 VORD OF EACH ENTRY 



SETCSR! 



04 

n- 



3S: 



4S: 



MOV 
BNE 

Egg$/BEG 



ADDRfRO 
DVIDl^Rl 

IS 
T R 

#JSRTAB+4/R2 



S+4#R2 




;bb I" 
;DROP . 



TED 



THE FIRST CSR ADDRi 
D Rl WITH THE OEVICI 
IF SOMETHING SELECT! 
DP MQDULE-HOTHIMG S 
R2 TO CSR ADORE ^ 
SELECT BIT INTO 

;br if line not selected 

;POT RCVR CSR ADDRESS IN TABLE 

;G|RERATE XNITR CSR ADRS IN RO 

;P0INT TO XMTR SLOT IN JSR TABLE 

;PUT XMTR CSR ADDRESS IN THE TABLE 

;GENERATE RCVR CSR ADRS I| RO 



RO 

ION PARAMETER 



;br if not 

;6q setup for receive 
-ulo 



mss 



mm SB iski-PoiNTER 

>60 TEST FOR END OF TABLE 



;THIS CODE CLEARS BUFFERS AND TABLES AND INITIALIZES FLAGS 
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SEQ 0010 



C05000 




000654' 
000654' 
000660' 



r mm- 



If 

00002^ 
002320' 
010400' 

002140' 

mn 



001210 
002060' 

000003 002060* 

177170 

000100 
002060' 



104407 
104407 



mm 



000000' 
000000' 



SEfOP: 
l$s 



2S: 



3S: 



4$: 



5$: 



6$: 



CLR 
NOV 
ADD 
ADD 
CMP 
BME 
MOV 
CLR 
CMP 

SNE 
OV 
MOV 
CLR 

gliP 

BRE 
JSR 
MOV 

CLR 
MOV 
ADD 
CMP 
BNE 

gg' 

ASR 

BCS 

CLR 

BR 

INC 

T 




-ADVAiCE TO_St|f 



ERTAB>20 



II01,R2 
20, RO 

^LSfUS(RO) 
||/DLSTOS(RO) 



- BUFFER POINTER-HCfB 

°o'im gsffg!""-'- 

HE.SBT DP 8 BUFFERS 

ST BUFFER 



HAVE HE SET DP 8 BUI 



M lit i!h . 

:iR THIS cguMtl? 



BUFFERS? 




RCVR SOFTiiARE SUITCU 
ERROR COUNTERS BEBM CL 

P Q'S 4 TIMERS 
Y SET TO MINUS THQ 

_. ci^slEIcilcS^pliAMETER 

DVANCE TABLE OFFSET 
VE^LOOKED AT 8 DL'S? 

SAvF.T8i!^CpUNT_JF^ilCTIVE LIKES 



DRS 
RED 



m 



Dl> 

INTO 



ACTIVE TABLE SEl 
SHIFT SELECT BIT 
IF IF SELECTED 
THIS LINE IDLE 
GO TEST NEXT LINE 

iPfEkPlExf^ElNi*^^^° ^ WAITING KEYBOARD ACTION 



;THIS CODE STARTS UP ALL SELECTED LINES RECEIVING 



STRTUP: 



1$: 



2$: 



MOV 
MOV 
ADD 
MOV 
TST 

TST 
BIS 
ADD 
CMP 
BNE 



R2°r1"^ 
#l60,R2 
iDLSfuS^RO 
(RO)* 

2fRl) 

in fil"' 



$GET STARTING CSR ADRS TO R2 
SgET STARTING CSR ADRS TO Rl 
;MAKE R2 last RCVR CSR ADRS * 
;GET DL STATUS TABLE ADRS 
JSEE IF THIS LINE SELECTFD 
;BR IF NOT 
IFLUSH DONE BIT 
;SET RCVR INT FOR THIS LINE 
;ADVANCE TO NEXT RCVR 
;RAVE HE DONE 8 LINES? 
IBR IF NOT 



10 



iSg|§RS§''fo'>Sgii;Sg m'-mm- for -end pass- T»»e 



TIMR! 



BREAKS,BEGIN 
BREAKS, BEGIN 



;TENP0RASY RETURN TC MONITOR.... 

;TiEM CONTINUE AT NEXT INSTRUCTION. 
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475 
476 



000664' 005367 
0Q0670' 00100| 



001106 



000672' 005367 001102 



0053 
0014: 
0047i 



mir- ^^^^^^ 



mi 



67 007742 



-0500 

oo-:'_ 

100005 



00 



000704' 
000710' 
000714' 
0007 
0007; 
0007, - 

mil ...... 



OOO74J' 022701 

mm- lm\ 



177076 
000004 



002060' 



IS: 

XSTRTS 



1$: 



OOOOgJ 002060' 

ooEilo 

000002 
000020 



2$s 



DEC 
BNE 
DEC 

SIS 

MOV 

m 

TST 
BPL 
MOV 

BNE 
BR 




(Rl) 



SEQ 0011 



;COUNT EOF TIMER 

;BR IF HOT DOE FOR 



'END PASS« i^SG 



fSTAY Ig LOOP TILL CNTRl = 
;G0 REPORT RECVR ERRORS IF ANY 

;GET BASE DL ADRS 
;PGINT TO XNITR CSR 

;2BR0 OFFSET 

;this line haiting for xmit? 

*BR IF NOT 

|lKI§FlHp\fS«^l''|HIt INT 
;ADVANCE to next XMITH'S csr 
;ADVA«CE offset FOR STATUS Tl 
)HAVE ALL LINES BEEN CHECKED 



PETURI ¥0 EOP TIMING 



524 




016767 
012767 



1407 

Josll? 

001366 
004767 

nmi 

104410 



005000 



COlOlO 
020000 



000 



007624 
000746 



000000' 




001014 
001004 



000003 002060' 



002060* 
176762 



IS CODE DOES THE FOLLOWING: 
ENTERED HHEN DUE FOR 'END PASS* MSG AND ALLOHS TIME 
;( BREAKS) FOR ALL LINES TO COMPLETE RECEIVING 
{rIfORTS ALL RBCEIVBR ERRORS IF ANY 

;DR0PS MODULE IF ALL DLll HCVR'S HAVE MADE 3 ERRORS 



TMODT! 

1$S 



MOV 
NOV 



COUNTl/CNTRl 

#20000,CNTR 



BREAK|,BEGIN 



BRE 
DEC 
BNE 
DEC 
BNr 
JSL 
TST 



^GIW 



C CM 



TRl 



ENDS, BEGIN 



PC,RERCK 
ACTDEV 

^fS~ 



HN6TST 



?SET UP 'TIMEOUT* TIMERS 
} 

^TEMPORARY RETURN TO MONITOR.... 
;THEM CONTINUE AT NEXT INSTRUCTION. 

;CEUHT FOR HORST CASE XMIT/RCV TIME 
;6R IF NOT TIMED OUT 

IsTAY IN LOOP TILL Cg 
;60 REPORT RCVR ERRO 
;MAKE SURE SOMETHING 

;§RO^'^MqSuLE - ALL SELECTED RCVERS MADE 3 ERS 



Ss^Jf" 

IS AC 



;this code reports any dl line vhich became hung 
;drops module if last selected line became hung 
;types the 'end pass* message 



hngtst: 

1$8 



CLR 
MOV 



RO 

ADDR.Rl 
~ STDS(RO) 



SI 



BEQ 

KSl 

MOV 

CNP 

BEQ 
ADD 



|3,DLSTUS(R0) 



CTED 



IS HAI1 
F NOT si 
BUT NO K 



! 



ATUS 
gACSR 

;dlstus(ro) 

i,CSRA 



;ZERO OFFSET 
>6ET BASE DL ADRS 

;S|E IF THIS 

;br if it IS 
;has it SELBC 
;br if SO 

THE hung & 

;has it receiving? 
;br if so 

>SET UP XMIT CSR ADRS 



Hi! ii 



DROPP 
R CGN 
ADRS 



INg FOR XMIT 

action? 
[ts in the status wd 



VTAB DEC/Xll 
XVT&BO.PU 




SYSTEM EXERCISER HOOULE 
12-OCT-78 12S24 



176756 
n 176750 
COOOOO' 002034' 
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SEQ 0(12 



000000' 
QOOOlO 



000000' 



007370 
176572 

002060' 

002040' 
000003 
000100 
00 



2$: 



3$s 



MOV &CSRA,ilCSR 
CLR IgSRA 



8ET XMITR CSR CONTENTS 
DISABLE ntS LISE-S iSfERROPT iNABLE 



6lr OLSTUSCRO) 

IP Si"" 

ENOS/BEGIN 

ADD 110, 



BNE 

ENDITS/BESIN 



SELECTED LINE BSCAHS 



;THIS CODE WILL RESTART AMY DL 
;THE 'EHD PASS' - ALL OTHER DL 



1$S 



14' 



2S! 



177416 



000002 



004000 
002100' 



000377 



000002 002060' 



JSR 
MOV 
CLR 
TST 
DLB 
M0¥ 
ADD 
MOV 
ADD 
ADD 
CMP 
BNE 
JMP 



PC^SETQTS 
ApDR,RO 

Rl 

i 

XI 



STOSCRl) 
AD0(R1)^XR 



;0ESELECT THIS LINE 

;DR0P MODULE - "~ 

;AOVANCE TO NEXT DL BOS ADRS 

imm mm all dl-s7 

;bS IP NOT 

;SI6NAL END OF ITERATION. 
;MCNITOR SHALL TEST END OF PASS 

LINE TO RECEIVE THAT HAS HONG AT THE TIME OF 
S NILL BE RESTARTED TRANSMITTING 

;G0 SET OP Q'S AND TIMERS 
;GET base DL ADRS 
;CLEAR OFFSET 



THI§ 
IF 



LINE NOT SELECTED OR WAITING XHIT? 



XRBP0(jl|^|SiT6P_.RiCEIVER„PpINTER 



POINTER OVER NOLLS 
' -NE'S RCVR 



20,R1 



;ADVANCE OFFSET 



INT 

DL BUS ADRS 



ENABLE 



XSTRT 
^RECEIVER INTERROPT 



;HAVE ALL LINES 
;P IF HOT 



BEEN CHECKED? 
START ALL OTHER LINES TRANSMITTING 



Ji?g§giJi«5if!E«88- 



_ ERROR- 

;SETS UP FOR' XMIT ON 



rint: 



SERVICE-ENTERED VIA APPROPRIATE JSR TABLE ENTRY 
TORES DATA INFORMATION 
IN QUEUE '11' I OR BACK 



1$: 




END OF TRANSMISSION 

;SAVE RO^Rl 



ACKGRODND REPORTING 



106i(R0) 
|oOO,Rl 



H 

RCVSH(R2) 
||77,R1 

Rl 

il,DLSTUS(R2) 




& R2 ON THE STACK 



ADRS TO RO 
CONTENTS TO Rl 
IMES TNO TO R2 



UP 



;G|T 

sill LINE 
TENABLE Ml 
;BR IF OK 

;RECORD PHONEY INTERRUPT IN BIT 
;G0 AND SAVE ERROR 
;RAVE he BEEN RECEIVING ON THIS 
;BR IF SO 

;IS THE CHAR EQUAL TO THE START 
;BR IF SO 
;IS THE CHAR A NOLL? 
;br if NOT 

SiBDICATEO THIS LINE NOH HAS KEYBOARD ACTION 



11 

LINE? 
CODE? 
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002000 
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' 010577 
- 001003 



000404 

002160' 
"00366 

000003 



0Q2( 



0003_ 
00000_ 
006000 

000014 



mm 



002320- 
000372 
000360 
002120' 



000314 



002014- 
002060' 



2$: 



5$: 
6$: 



7$: 
8$: 

9$: 



SEQ 0013 



000 

002140' 000204 
000000' 001606' 



BR 
BIS 
BR 
INC 

TST 

CHP 
BHE 
MOV 
MOV 
ADD 
INC 
CMP 

%^ 

CLR 

BIS 

DEC 

MOV 

ADD 

BIT 

BNE 

CNPB 

BNE 

CLR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

NOV 

MOV 

RTI 



000, Rl 



RCVSH(R2) ;RECQRD THAT TH 



;GG RETURN FROM NULL CHAR INT 
;RBCORD BAD SYNC CODE 
;G0 AND SAVE ERROR 

-HIS LINE RECEIVED A START CODE 



Rl 

i|pTRl/#XRBO 

iIqcERptri 

RO,&ERPTRi 

||,ERTAB(R2) 

iLsius(:R2) 

flOOO^Rl 
ACTDEV 

rLsIrptri 

|2^B§PTR1 
16000, Rl 



r4,Ri 



,XRBPO( 



-i,DLST0S(R2) 

<SPU,r" 



POINTER 
ERRORS 



;LOOK FOR OLll 

|| rSS IpNTER OVER END OF ERROR BUFFER? 

■RESET ERROR QUEUE POINTER 
SAVE CSR ADRS OF BAD LINE 
* VANCE ERRCR BUFFER POINT 
, ONT THIS ERROR 

I THIS THE LAST ALLQHABLE ERROR? 
BR IF NOT 

""SAJLE TH^S LINE'S RCVR INT ENABLE 



POINTER 



rilS LINE 



>S T OP INDICATION FOR MAX « 
-SOBTRACT FROM TOTAL ACTIVF 



OF ERRORS THIS LINE 



>SDBTRACT FROM TOTAL ACTIVE 
;SAVE ERROR 4 DATA INFORMATION 
;ADVARCE ERRCR BOFFER POINTER 
;SEE HOH TO EXIT 

;BR IF EITHER ILLEGAL INT OR SYNC ERROR 
;SEE IF THE TERMINATING CHAR 
;BR IF NOT 
INDICATE RECVR IS IDLE 



;INDIi 
IDISAI 



SET UP XMITR BOFFER POINTER 
T THIS LINE ERRCR COUNTiR_ 



iOISABLE THIS LINE'S RCVR INT ENABLE 
;RECOEST XMIT FOR THIS LINE 
"ESTORE THE OTHER GUY'S REGS 



;RETURN TO THE OTHER GUY 



; TRANSMITTER INTERRUPT SERVICE-ENTERED VIA APPROPRIATE JSR TABLE 
;ENTRY WITH R5 POINTING TO THE CSR AODRESS-CONTgNTS OF R5 
>6ETS QUEUED OP IN FIFO QOEOE AID ROUTINE RETORMS CONTROL BACK TO 
5tRE MONITOR VIA A 'PIRq' TO DEFER SERVICING XMITTER AT LEVEL 



TINT: 



1$: 



MOV 
ADD 
CMP 
BNE 
MOV 
MOV 

JiRoi 



R5, 



Mil 



QPTRl 
PTRl 

QPTRl 



CONTENTS OF RS II THE QOEUE 
IE THE QOEOE POINTER 

-I" EN 

NOT 



END OF QOEOE? 



;RESET THE POINTER 
;RESTORB THE OTHER GOV'S R5 



,BEGIN,TSERV 



; QOEOE UP TO CONTINUE AT TSERV AND RTI 



^DEFERRED XMTR SERVICE-THIS RQOTINE RETRIEVES POINTER TO CSR ADDRESS 
}FROH THE FIFO QOEOE AND SERVICES THE LINE AT LEVEL 



001606' 017700 000172 



9QPTR2,R0 



;GET POINTER FROM THE QOEUE 
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mm- mm 

002140* 000146 



G00300 



002040* 002014* 
000003 002014' 



002120- 
000002 
000100 
000002 

cooooo- 

mm 

000000* 
000000* 



176130 
000000 



SE@ 0C14 



ISS 



«#QPTR2 
fQ*20/QPTR2 

QPfR2 



2SS 
3$: 




/UPDATE 
?POINtE 



QUEUE POINTER 
HIGH LIMIT? 



EXITS 



)#R3 

AfiAD0(RO)£XRBP0 
t3f XRBPO(I^O) 

(RO) 
cOLSTOS(RO) 

^BEGtfi 

&l32sRA 
R2.ACSR 

*.MUmm 

/BEGIH 



TO Rl 



EMTS 

ENABLE MOST BE UP 



IT THE 
IE NOT 



g NEXT DATA 
^ATA BYTE 
TERMINATING CHARACTER? 



(kO) ;SET UP 
;S|T RCVR_EgiNTER_fO SfART CODE 



UP RCVR POINTER 



;S|io^ERioc- - 

' WUU lit 



■"cSoNTlR 



NAB 



Is LINE 

RECEIVING 
|Slf RCVR INT ENABLE 

;SEND »EX|x?f Jo^SSiitOR. MODULE WAIT FOR INTERRUPT. 
;D||ABLE_XMITR_INT.ENABLE IF SET 



******* 



iSif UP CSR ADDRESS 



********** A *«**««* ft 



*i***«****i****«**************«*« «««*«*** 

?EXIT TO MONITOR. MODUIF bUT FOR INTERRUPT. 



;SQME POINTERS, VARIABLES AND CONSTANTS UNIQUE TO THIS MODULE 



ACTDEV: 

CHTR: 

QPTR3 



CNTRl! 
QPTRl: 
QPTR2! 
ERPTgi: 
ERPTR2: 
STATUS: 



PEN 
OPEN 
OPEN 
gPEH 



K BREAKS 
. JK BREAKS 
DLllS* ACTIVE 

BREAKS JO M^MIT 



rS GROUPS 



IR 

1EAKS_ 



^|ND_PJSS 



OPEN 
OPEN 
OPEN 



002040' 002320' 



XRBPO 
XRBPl 

XRBP2. 

XRBP3: OPEN 

XRBP * 

XRBP 

XRBP6: 

XRBP7: OPEN 

STATBL: STATUS 
177777 

XRAOO: XRBO 



m n 

;|0F DL 
/C00N|| 

mil isssg 'fV4 im 

;CONTAINS ADDITIONAL ER 

;PQINTBR TO NEXT BYTE ADRS IN THE DATA 
;BOfPER ON BOTH RECEIVE I TRANSMIT 



MQUT* TEST 



TC MONITOR 

-LOAD 

POINTER-UNLOAD 



^''ill?iS:ii8L*8*D 

STATUS INFO 



BP6: OPEN 



;pqinter to er status vd 
Sprint out terminator 

^ADDRESSES OF THE 8 DLll 
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KACTll 301(1052) 12-OCT-7a 

XRA03: XRB3 
XRAD4: XRB4 
XRAD5: XRB5 
XRAD6: XRB6 
XRAD7: XRB7 

JTABLES/ QUEUES & BUFFERS 



17:09 PAGE 16 

;XMITR (, RCVR DATA BUFFERS 



SEQ 0015 




mi 



CIFY STATUS OF EACH DL 



SPECIFY 
SP 

ER _ 

>TMttR SERVICE FIFO QUEUE 
;48 MQRD RCVR FIFO ERROR QUEUE 



;390 BYTE XMIT/RCV DATA BUFFERS 
;F0R 8 DLll LINES 



HeRmina 



tYTES ARE NULL C 
-ST QF_iACH BUjPP! 



FIRST 3 

- THE R 

A START CODE 



ES Of DATA, EACft ilTA*!?ES 
TED UITH THE CHAR *14- 



RS 
MILL 
AH9 UP TO 
IS 



;JSR LINK TABLE CONSISTING OF 
;THAT link THE INTERRUPTS TO 



16 JSH'S (8 RCVR * 8 XMTR) 
COMMON SERVICE ROUTINES 



170662 
17U32 
170642 


jsrtab: ^SR 



r 

JSR 


R5,RIRT 
R5/TINT 
R5,RINT 


^IDENTIFIES THIS LIME 

;ISBITXFIES TBIS LIME 
;LIMK FOR LINE 1 


171112 


S 

JSR 


RS^TINT 




170622 




R5/RIMT 


;LINK FOR LINE 2 


171072 


JSR 


R5/TINT 




170602 


JSR 


RS^RINT 


;LINK FOR LINE 3 


171052 


JSR 


R5,TINT 




170562 


JSR 
1§R 


R5,RINT 


;LINK FOR LINE 4 


171032 


R5/TINT 
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nmv nut 

515520- 00456 



755 
756 



764 

Pl 

768 

^ 

ji 

7II 

11 

705 

?P 

788 
789 

??J 

793 
794 
795 
796 
797 
798 
799 
BOO 

m 
m 

805 

807 
808 
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;LIRK FOR LIIE 5 



SEQ 0016 



mm- m 

010554' OOOOpQ 
010556' 000014 

ill : mi 

010570' Sfijglj 
olSs?!- 000016 



0600' 



oefl' 

mi 

0644' 



010646' 

mm- 

010662* 
010666 • 
010672' 
010700' 
010706* 
010714* 
010720' 
010724* 
010730* 
010732' 
010*740* 

010746* 

010754* 
010756* 



0/01 

m 



Sit.- 

001003 



§7 
0027 
10" 





10 




170542 


JSR 


R5,RINT 


171012 


||r 


RS^TIil 


170522 




RS,RIMT 


170772 


k 


RS^TIMT 


170502 


H 
JSR 


R5,RINT 


170752 


U 

JSR 


R5,TINT 




026767 171134 171134 

Of' 

oi_ 

01: 
OlJ 



;LIRK FOR LIRE 6 



niRK FOR LIRE 7 



;THIS ROOTIRE SETS OP QUEOE POINTERS & TIMERS OR START & RESTART 
SETQTS: MOV fIS'SEIil >SET OP XMITR FIFO QOEOB POINTERS 

;8ET OP ERROR FIFO QOBOE POINTERS 

'END PASS- COONTERS 

H 

RERCK: 



S3! 



{EljriRPTRl 

Imkm 



SSBT OP 

Iretorh 



IN 



CMP 



mm 



m 

MOV 
MOV 
MOV 

m 



;ARy ERRORS PERDIRG7 



104405 

mm 

000001 



C02160- 

000017 
000000' 



urn 

002034* 



1$S 



2$: 



ML. 
MOV 
|40V 

Jg 

SNAB 
NOV 
CMP 
BNB 
MOV 

m 



ERPTR1^ERPTR2 -fiSif ng* 

(ROW^ACSR 



f ATOS 

' -RPl - 
XRBO 



DEVICE AORS 
..^ TB DBR STATUS IMFC 



HS5l5!<8S§{!(3Ii»!(.....i8!;ini"..lS88S... 



•STATOS* 

•sIatos- 



BR AT BRD OF ERROR B0FFER7 



BHD 



|ERCK 



*«•***••••**«*•*«**••* 

FOR MORE ERRORS IN OOEOE 



VTAB DE 

XVTABO. 

ACSR 

ACTDEV 

ADDR 

ADDR22= 

ASB 

ASTAT 

ANAS 

BEGIN 

BITO = 
BITl = 
BITIO 

BITi2 
BIT13 
8TT14 
BIT- 
S' 

B_-- 
BIT4 
fllTS 

im 

BREAKS 



C/Xll 
Pll 



SYSTEM EXERCISER MODULE 
12-OCT-78 12S24 
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000102R 
001774R 
000006R 



him 



BRl 
BR2 
BTODS = 
CDATA$= 
CHTR 
CNTRl 
CONFIG 
COUNT 
COONTl 
CSRA 
DATCKSs 
DATERS= 
DLSTUS 

DVIDl 
ENDIT$= 
END$ = 



.06R 
- 104R 

000001 
000002 

002Q00 

020000 

040000 

- -010 

000020 

mm 

000200 

000400 

mm 

000012R 
OOOOISR 

001776R 



001 

10' 



RRPTR2 



ERRTYP 

fRTAB 
XITS^ 
GETPAS 
GWBUFS 
HNGTSf 



2000R 
0056R 
177|r 

OOOIOOR 

mm 

00206OR 

104410 

mm 

002010R 
000106R 
002120R 



HRDPAS 
ICONT 



fit 



501 



526* 



473 

381 



782 



CROSS REFERENCE TABLE 



531* 



473 



474 

385 



506* 
508* 



530* 



481 



474 



504 



531 




20 



504 



505 



532* 



486* 



615* 



USER SYMBOLS 
794 795* 

552 



505 



513 



535 



540 545 



636 



663 



SFQ 0017 



669 



665* 
521 



659* 



792* 
S33 

682« 
711# 



528 



780* 



537* 554 



789 



586* 



604* 
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ICOUNT 
IDNUM 



am-. 

HODNAM 

MODSP 

KigSI ■ 

MSGS - 
HULf. = 
OPEN : 



OTOAS = 
PASCNT 
PIRQS = 
POPSP = 
P0PSP2= 
PRTY = 
PRTYO = 
PRTYi - 
PRTY2 = 
PRTY3 = 
PRTy4 = 
PRTY5 = 
PRfY6 = 
PRTY7 = 
PS 

PSW = 

PUSH = 

PUSH2 = 

OPTRl 

QPTR2 

RANDS = 

RANNOM 

RCVSW 

RERCK 

RESTRT 

RIHT 

RSTRT 

3BADR 

SETCSR 

SETQTS 

SETUP 

SOFCNT 

SOFERS= 

SOFPAS 

SPOINT 

SPSIZ = 

SRI 

SR2 

SR3 




OldiOOR 
104416 

104401 
000000 
000000 



36B« 

ml 



MACYll 30A(10S2) 12-0CT-78 17:09 PACB 20 
CROSS REFERENCE TABLE — USES SYMBOLS 



SEQ 0018 



727« 

366# 



III i^ii in 



m 



in 



348 
686 



368# 





631 
644 


633* 
646* 


mi 










580 

uu 


590* 
789# 




710« 










727 


733 


739 


745 


751 


757 


763 


769 


m* 

420# 


436 


551 


778i 











361 
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SR4 

START 

STAT 

STATBL 
STATUS 
STRTUP 
SVRO 
SVRJ 

svrJ 

SVR3 
SVR4 
SVR5 
SfR6 
SYSCNT 
TIMR 
TINT 
TMOUT 
TQ 

TRPDFD= 

TSERV 

VECTOR 

WASADR 

MDFR 

UDTO 

XFLAG 

XRADO 

XRADl 

xradJ 

XRAD3 

XRAD4 

XRAD5 

XRAD6 

XRAD7 

XRBPO 

XRBPl 

XRBP2 

XRBP3 

XRBP4 

XRBP5 

XRBP6 

XRBP7 

XRBO 

XRBi 

XRB2 

Eli 

XRB5 
XSTRT 



000024R 
000224R 
000026R 
002034R 

utmi 

000062R 

ooSSIIr 

000070R 
000072R 

8o88?6R 

000052R 

500654R 

0Q1546R 

000756R 

002140R 

000022 

001606R 

OOOOIOR 

000104R 

000116R 

gogii|R 

40R 
342R 

Jm 

002050R 
002052R 
002054R 
002056R 
002014R 
002016R 




00704R 
10760R 



3451 



702 



SEQ 0019 



371# 



492 



372* 
556 



422* 



736 
644 



378* 
614 



556* 



698 



794* 



742 
646 



656 



557* 



715« 



711# 712# 



796* 



748 
712# 



698« 



591* 



799 



7131 



797* 



754 

778 



760 

179 



766 



772 



592* 



614* 



652* 



653 



656* 



657* 



686« 



715# 



716# 



7171 



7181 



7191 



7201 



721# 



722# 



. ABS. 
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